home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / ucall19.lha / ucall / Script / 07er.login next >
Text File  |  1995-08-22  |  2KB  |  88 lines
  1. ; 07er-Login
  2. ; Holt die 07er-Mailboxliste aus der 
  3. ; Weird Science Box
  4.  
  5. ; Konfiguration anzeigen
  6. gosub showconfig
  7.  
  8. ; Variablen setzen
  9. set nummer        =ATDP 07634 69758 \r\n
  10. set username      =07er\r\n
  11. set download_dir  =ram:
  12.  
  13. ; Anwahlpause 60 Sekunden
  14. pause 60
  15.  
  16. ; Login mitlesen
  17. showlogin con:0/0/640/200/Zcall-Login
  18.  
  19. ; Timeout 60 sekunden
  20. timeout 60
  21. timeout_label
  22.  
  23. ; Abfrage ob bereits ein Timeout aufgetreten ist
  24. ifflag 2 msg ($time) Timeout aufgetreten\n
  25. clearflag 2
  26.  
  27. gosub modeminit
  28.  
  29. protmsg ($time) Anwahl $nummer
  30. connect $nummer
  31.  
  32. wait Username:
  33. msg \x1b[2mSende username\x1b[0m\n
  34. send $username
  35.  
  36. msg Warte auf Auswahl\n
  37. wait Auswahl:
  38. msg \x1b[2mSende Auswahl\x1b[0m\n
  39. send 1\r\n
  40.  
  41. msg Warte auf Download\n
  42. msg \x1b[2mDownload Start\x1b[0m\n
  43. workdir $download_dir
  44. getfile 07er.lza
  45. ifflag 1 msg Fehler beim Download !\n
  46. msg ($time) Filename=$filename Größe=$filesize Bytes\n
  47.  
  48. end
  49.  
  50. label modeminit
  51. msg Sende Modeminit\n
  52. send ATZ\r\n
  53. wait $ok,$error
  54. if $error goto init_error
  55. msg \x1b[2mModem init ok\x1b[0m\n
  56. return
  57.  
  58.  
  59. label init_error
  60. msg Modeminit fehlerhaft !\n
  61. protmsg ($time) Modeminit Fehlerhaft !\n
  62. end
  63.  
  64. label showconfig
  65.  
  66. msg   -----------------------------------------\n
  67. msg   .           Konfiguration\n\n
  68. msg   Programmstart :$date,$time\n
  69. msg   ConfigFile   = $config\n
  70. msg   Scriptfile   = $script\n
  71. msg   Linbuffer    = $linebuffer\n\n
  72. msg   Device       = $device\n
  73. msg   Unit         = $unit\n
  74. msg   Baud         = $baud\n
  75. msg   Serialbuffer = $buffersize\n
  76. msg   Parameter    = $databits Datenbits\n
  77. msg   .              $stopbits Stopbits\n
  78. msg   Handshake    = $handshake\n
  79. msg   Parität      = $parity\n
  80. msg   Xpr-Library  = $xprlib\n
  81. msg   Xpr-Optionen = $xpropts\n
  82. msg   -----------------------------------------\n\n
  83. return
  84.  
  85.  
  86.  
  87.  
  88.